home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 49
/
Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso
/
-serious-
/
programming
/
e
/
powerd0.06
/
modules
/
intuition
/
sghooks.m
< prev
Wrap
Text File
|
1999-11-30
|
1KB
|
79 lines
MODULE 'devices/inputevent',
'graphics/text',
'intuition/cghooks',
'intuition/intuition',
'utility/hooks'
OBJECT StringExtend
Font:PTR TO TextFont,
Pens[2]:BYTE,
ActivePens[2]:BYTE,
InitialModes:LONG,
EditHook:PTR TO Hook,
WorkBuffer:PTR TO CHAR,
Reserved[4]:LONG
OBJECT SGWork
Gadget:PTR TO Gadget,
StringInfo:PTR TO StringInfo,
WorkBuffer:PTR TO CHAR,
PrevBuffer:PTR TO CHAR,
Modes:LONG,
IEvent:PTR TO InputEvent,
Code:UWORD,
BufferPos:INT,
NumChars:INT,
Actions:LONG,
LongInt:LONG,
GadgetInfo:PTR TO GadgetInfo,
Editop:UWORD
CONST EO_NOOP=1,
EO_DELBACKWARD=2,
EO_DELFORWARD=3,
EO_MOVECURSOR=4,
EO_ENTER=5,
EO_RESET=6,
EO_REPLACECHAR=7,
EO_INSERTCHAR=8,
EO_BADFORMAT=9,
EO_BIGCHANGE=10,
EO_UNDO=11,
EO_CLEAR=12,
EO_SPECIAL=13,
SGM_REPLACE=1,
SGMB_REPLACE=0,
SGMF_REPLACE=1,
SGM_FIXEDFIELD=2,
SGMB_FIXEDFIELD=1,
SGMF_FIXEDFIELD=2,
SGM_NOFILTER=4,
SGMB_NOFILTER=2,
SGMF_NOFILTER=4,
SGM_EXITHELP=$80,
SGMB_EXITHELP=7,
SGMF_EXITHELP=$80,
SGA_USE=1,
SGAB_USE=0,
SGAF_USE=1,
SGA_END=2,
SGAB_END=1,
SGAF_END=2,
SGA_BEEP=4,
SGAB_BEEP=2,
SGAF_BEEP=4,
SGA_REUSE=8,
SGAB_REUSE=3,
SGAF_REUSE=8,
SGA_REDISPLAY=16,
SGAB_REDISPLAY=4,
SGAF_REDISPLAY=16,
SGA_NEXTACTIVE=$20,
SGAB_NEXTACTIVE=5,
SGAF_NEXTACTIVE=$20,
SGA_PREVACTIVE=$40,
SGAB_PREVACTIVE=6,
SGAF_PREVACTIVE=$40,
SGH_KEY=1,
SGH_CLICK=2